library(foreign)
library(ggplot2)


gender2 <- read.csv("replot2.csv")


#One plot

gender2$ID <- factor(gender2$ID, levels = rev(levels(gender2$ID)))


ggplot(data = gender2, aes(reorder(ID, diff), x= ID, y= diff, ymin=lower, ymax= upper, colour=factor(Gender))) +
  geom_point(aes(shape=factor(Gender)), position = position_dodge(width = 0.65)) +
    geom_errorbar(position = position_dodge(width = 0.65), width = 0.1) +
  coord_flip() +
  scale_colour_manual(values = c("black", "grey41")) +
  scale_y_continuous(limits = c(0, 14.65), breaks = seq(0, 14, 2)) +
  labs(y="Proportion of Agenda", x="Issue Area")+
   theme(legend.position="bottom",
   legend.title= element_blank()) 
  

dev.copy(jpeg,filename="gender.jpg");
dev.off ();
